home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / SOLID8H.IRT < prev    next >
Text File  |  1991-09-04  |  894b  |  45 lines
  1. #
  2. # Yet another simple 3D mechanical object.
  3. #
  4. #                Created by Gershon Elber,    Sep 89
  5. #
  6.  
  7. save_mat = view_mat;
  8. save_res = resolution;
  9.  
  10. resolution = 32;
  11. view_mat = view_mat * trans(vector(0.0, -0.3, 0.0)) *
  12.             scale(vector(0.8, 0.8, 0.8));
  13.  
  14. b1 = box(vector(-0.6, -0.3, 0.0), 1.2, 0.6, 0.6);
  15. c1 = cylin(vector(0.0, -0.25, 0.59), vector(0.0, 0.5, 0.0), 0.55);
  16. s1 = b1 + c1;
  17. color(s1, yellow);
  18. free(b1);
  19. free(c1);
  20. view(list(s1), true);
  21.  
  22. b2 = box(vector(-0.4, -0.4, -0.1), 0.8, 0.8, 0.35);
  23. view(list(b2), false);
  24. s2 = s1 - b2;
  25. free(s1);
  26. free(b2);
  27. color(s2, yellow);
  28. view(list(s2), true);
  29.  
  30. c2 = cylin(vector(0.0, -0.4, 0.595), vector(0.0, 0.8, 0.0), 0.3);
  31. view(list(c2), false);
  32. s3 = s2 - c2;
  33. free(s2);
  34. free(c2);
  35.  
  36. final = convex(s3);
  37.  
  38. interact(list(s3), true);
  39.  
  40. save("solid8", list(view_mat,final));
  41. free(final);
  42.  
  43. resolution = save_res;
  44. view_mat = save_mat;
  45.